home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tpdb314.zip / ZAP.PAS < prev   
Pascal/Delphi Source File  |  1990-02-14  |  871b  |  36 lines
  1. {$A+,B+,D-,E-,F-,I-,L-,N-,O-,R-,S-,V-}
  2. {$M 65520,0,655360}
  3. Program ZapFile;
  4.  
  5. Uses Crt,TPDB,TPDBScrn,TPDBStr;
  6. Var
  7.     Message : String[80];
  8.     Zapper : ^DBF;
  9.  
  10. begin
  11.      CursorOff;
  12.      If ParamCount = 0 then
  13.      begin
  14.           Beep;
  15.           ClrScr;
  16.           Flash(1,1,LightGreen+BlackBG,'ZAP filename.dbf');
  17.           CursorOn;
  18.           Halt(1);
  19.      end;
  20.       NEW(Zapper,Init(ParamStr(1)));
  21.       If Zapper^.TotalRecs = 0 then
  22.      begin
  23.           ClrScr;
  24.           Beep;
  25.           Message := 'Record count in file '+Upper(ParamStr(1))+' is already ZERO.';
  26.           Flash(1,1,LightGreen+BlackBG,Message);
  27.           CursorOn;
  28.           Halt(1);
  29.      end;
  30.       Zapper^.Zap;
  31.       Zapper^.Done;
  32.       ClrScr;
  33.      FlashC(12,White+BlackBG,'File has been zapped.');
  34.      FlashC(13,LightGreen+BlackBG,'Copyright 1989 Brian Corll');
  35.      CursorOn;
  36. end.